CollatingOrder Property Example

This example displays the CollatingOrder property for the Northwind database and for individual fields in a table.

Sub CollatingOrderX()

   Dim dbsNorthwind As Database
   Dim fldLoop As Field

   Set dbsNorthwind = OpenDatabase("Northwind.mdb")

   With dbsNorthwind
      ' Show collating order of Northwind database.
      Debug.Print "Collating order of " & .Name & " = " & _
         .CollatingOrder

      ' Show collating order of a TableDef object's fields.
      Debug.Print "Collating order of fields in " & _
         .TableDefs(0).Name & " table:"
      For Each fldLoop In .TableDefs(0).Fields
         Debug.Print "  " & fldLoop.Name & " = " & _
            fldLoop.CollatingOrder
      Next fldLoop

      .Close
   End With

End Sub